Holt Researcher: American History/Holt Researcher: American History.iso/pc/modules/prefs.dxr/00004_Prefs Var.ls

Text File | 2000-01-14 | 851 b | 49 lines

property pSpriteList, pButtonList, pRolloverTextObj

on new me
  return me
end

on InitRollOverText me
  rolloverList = []
  setAt(rolloverList, getaProp(pSpriteList, #closeBox), 16)
  setAt(rolloverList, getaProp(pSpriteList, #speaker), 17)
  pRolloverTextObj = new(script("rollover text"), rolloverList)
end

on doRolloverText me
  doRolloverText(pRolloverTextObj)
end

on SetButtonList me, xList
  pButtonList = xList
end

on GetButtonList me
  return pButtonList
end

on SetSpriteList me, list
  pSpriteList = list
end

on GetSpriteList me
  return pSpriteList
end

on condemn me
  pButtonList = CondemnList(me, pButtonList)
  pRolloverTextObj = 0
  return me
end

on CondemnList me, xList
  MaxCount = count(xList)
  repeat with rc = 1 to MaxCount
    xObj = getAt(xList, rc)
    condemn(xObj)
    setAt(xList, rc, 0)
  end repeat
  return 0
end